#n = x % y ( round(x/y,0) )
clear n;
copy x to i;
#incr i;
while i not 0 do;
	copy i to n;
	clear j;
	#i = i - j
	while y not 0 do;	
		decr i;
		decr y;
		incr j;
	end;
	
	#restore y
	while j not 0 do;
		incr y;
		decr j;
	end;
	
end;
#decr n;
